home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / DiskUtil / Info / FreeSpace / Install < prev    next >
Text File  |  1995-11-24  |  1KB  |  55 lines
  1. (if (= @language "deutsch")
  2.     (
  3.         (SET Intro "Wilkommen zum Installer-Script für FreeSpace")
  4.         (SET WBin  "Wohin soll das Binary von FreeSpace hinkopiert werden ?")
  5.         (SET Doc   "Es existiert eine Anleitung zu FreeSpace. Soll diese kopiert werden ?")
  6.         (SET WDoc  "Wohin soll die Anleitung zu FreeSpace hinkopiert werden ?")
  7.     )
  8. )
  9. (if (= @language "english")
  10.     (
  11.         (SET Intro "Welcome to the installer-script for FreeSpace")
  12.         (SET WBin  "Where do you want me to place the binary of FreeSpace ?")
  13.         (SET Doc   "There is a document for FreeSpace. Do you want to copy it ?")
  14.         (SET WDoc  "Where do you want to place the document for FreeSpace ?")
  15.     )
  16. )
  17.  
  18. (MESSAGE Intro)
  19.  
  20. (SET BinDir
  21.     (ASKDIR
  22.         (PROMPT WBin)
  23.         (HELP   "")
  24.         (DEFAULT "sys:")
  25.     )
  26. )
  27.  
  28. (COPYFILES
  29.     (SOURCE ":DiskUtil/Info/FreeSpace/FreeSpace")
  30.     (DEST   BinDir)
  31.     (INFOS)
  32. )
  33.  
  34. (IF
  35.     (ASKBOOL
  36.         (PROMPT Doc)
  37.         (HELP "")
  38.     )
  39.     (
  40.         (SET DocDir
  41.             (ASKDIR
  42.                 (PROMPT WDoc)
  43.                 (HELP   "")
  44.                 (DEFAULT BinDir)
  45.             )
  46.         )
  47.         (COPYFILES
  48.             (SOURCE ":DiskUtil/Info/FreeSpace/FreeSpace.doc")
  49.             (DEST   DocDir)
  50.             (INFOS)
  51.         )
  52.     )
  53. )
  54.  
  55.